;;problem  2 fibo sum
(print
 (do ((n 0 (+ 1 n))
      (cur 0 next)
      (next 1 (+ cur next))
      (sum 0 (if (evenp cur) (+ sum cur) sum)))
     ((< 1000000 cur ) sum)))